home *** CD-ROM | disk | FTP | other *** search
/ HBO Media Relations - Win…/Spring 1995 Programming / HBO Media Relations Winter and Spring 1995 Programming Vol 1.1.iso / pc / files / go_to / 00001_Script_1 next >
Text File  |  1995-01-08  |  3KB  |  70 lines
  1.  
  2. -- òò --          The following Lingo code is Copyright 1994 by David K. Anderson         -- òò --
  3. -- òò --  For one-time use by Judson Rosebush Company for HBO Programming Preview CD-ROM  -- òò --
  4. -- òò --                               All Rights Reserved                                -- òò --
  5.  
  6. on startMovie
  7.   if the colordepth <> 8 then set the colordepth = 8
  8.   set the soundLevel = 5
  9.   InitIntro
  10. end
  11.  
  12. -- This handler searches for an empty text file on the CD to determine the correct path to the Director files.
  13. on InitIntro
  14.   global gMyPath, gFile
  15.   set the searchCurrentFolder = 0
  16.   if the machinetype = 256 then
  17.     -- Creat a list of potential drive names to be used when searching for the CD-ROM drive.
  18.     set PathList = ["C:\FILES\", "D:\FILES\", "E:\FILES\",  "F:\FILES\", ¼
  19. "G:\FILES\", "H:\FILES\", "I:\FILES\", "J:\FILES\", "K:\FILES\", "L:\FILES\", "M:\FILES\", "N:\FILES\", "O:\FILES\", "P:\FILES\", "Q:\FILES\", "R:\FILES\", "S:\FILES\", "T:\FILES\", "U:\FILES\", "V:\FILES\", "W:\FILES\", "X:\FILES\", "Y:\FILES\", "Z:\FILES\","EOL"]
  20.     set gMyPath = "C:\FILES\"
  21.     repeat with x = 1 to count(PathList)
  22.       set gMyPath = getAT(PathList, x)
  23.       set foo = ReadCDTestFile()
  24.       put foo && "Reading from disk:" && getAT(PathList, x)
  25.       if foo then exit repeat
  26.       if gMyPath = "EOL" then CantFindCD
  27.     end repeat
  28.   else
  29.     set gMyPath = "HBO_Media:FILES:"
  30.     set foo = ReadCDTestFile()
  31.     put foo
  32.     if NOT foo then CantFindCD
  33.   end if
  34. end
  35.  
  36. -- This handler uses the FileIO XObject to determine whether the text file exists on the selected disk.
  37. on ReadCDTestFile
  38.   global gFile, gMyPath, gTheProblem
  39.   put "READ CD ROUTINE"
  40.   if objectP(gFile) then gFile(mDispose)
  41.   if the machineType = 256 then
  42.     set TestPath = gMyPath & "FIND_ME.TXT"
  43.   else
  44.     set TestPath = gMyPath & "FIND_ME.TXT"
  45.   end if
  46.   set gFile = fileIO(mNew, "read", TestPath)
  47.   if NOT objectp( gFile ) then 
  48.     put "NOT found"
  49.     return FALSE
  50.   else
  51.     gFile(mDispose)
  52.     put "Found!"
  53.     setAt the searchpath 1, gMyPath
  54.     return TRUE
  55.   end if
  56. end
  57.  
  58. -- If the file can't be found, give up and go home.
  59. on CantFindCD
  60.   if the machinetype = 256 then
  61.     alert "You don't seem to have the HBO Media CD-ROM loaded!  Please make sure ¼
  62. the CD is in the drive." & RETURN & RETURN & "Then restart the application."
  63.   else
  64.     alert "You don't seem to have the HBO Media CD-ROM loaded!  Please make sure ¼
  65. the CD is in the drive and that the" && QUOTE & "HBO"  & QUOTE && "icon appears on the desktop." & RETURN & RETURN & "Then restart the application."
  66.   end if
  67.   quit
  68. end
  69.  
  70.